home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / air.src < prev    next >
Text File  |  1991-02-21  |  2KB  |  151 lines
  1. %%HP:T(3)A(D)F(.);
  2. @ AIR pressure, temperature and density, given altitude.
  3. @ by Jay Nestle
  4. DIR
  5.   CST {
  6. GROB 21 8 0C70000290000013A00094110017110294E10984010603E0
  7. GROB 21 8 400000800000803000484000080000003000044000083000
  8. "STD" "ATM" "TABLE"
  9. RUN }
  10.   RUN
  11.     \<<
  12. "Prg by Jay Nestle"
  13. DROP
  14. "Geopotential Alt? (m)
  15. (height above sea lvl)"
  16. ":height?:" INPUT
  17. OBJ\-> OBJ\-> DROP 'H'
  18. STO TST1
  19.     \>>
  20.   PVRS
  21.     \<< { P T \Gr }
  22. PURGE
  23.     \>>
  24.   DSPR
  25.     \<< H "Ht (m)"
  26. \->TAG T "T (K)" \->TAG
  27. P "P (Pa)" \->TAG \Gr
  28. "\Gr (kg/m^3)" \->TAG
  29. PVRS
  30.     \>>
  31.   PREV1
  32.     \<< E3.14 EVAL
  33. OBJ\-> DROP DROP 4
  34. RND SWAP STO E3.13
  35. EVAL OBJ\-> DROP DROP
  36. 5 RND SWAP STO
  37. E3.12 EVAL OBJ\->
  38. DROP DROP 4 RND
  39. SWAP STO DSPR
  40.     \>>
  41.   PREV2
  42.     \<< E3.9 EVAL
  43. OBJ\-> DROP DROP 4
  44. RND SWAP STO E3.10
  45. EVAL OBJ\-> DROP DROP
  46. 5 RND SWAP STO DSPR
  47. \>>
  48.   OVPRG
  49.     \<<
  50. "That's in space!"
  51.     \>>
  52.   TST7
  53.     \<<
  54.       IF H 105000 >
  55.       THEN OVPRG
  56.       ELSE 90000
  57. 'H0' STO 165.66
  58. 'T0' STO .004 'A'
  59. STO .1105 'P0' STO
  60. 0 '\Gr0' STO PREV1
  61.       END
  62.     \>>
  63.   TST6
  64.     \<<
  65.       IF H 90000 >
  66.       THEN TST7
  67.       ELSE 79000
  68. 'H0' STO 165.66 'T'
  69. STO 1.0669 'P0' STO
  70. .00002244 '\Gr0' STO
  71. PREV2
  72.       END
  73.     \>>
  74.   TST5
  75.     \<<
  76.       IF H 79000 >
  77.       THEN TST6
  78.       ELSE 5300
  79. 'H0' STO 282.66
  80. 'T0' STO -.0045 'A'
  81. STO 61.493 'P0' STO
  82. .00075791 '\Gr0' STO
  83. PREV1
  84.       END
  85.     \>>
  86.   TST4
  87.     \<<
  88.       IF H 53000 >
  89.       THEN TST5
  90.       ELSE 47000
  91. 'H0' STO 282.66 'T'
  92. STO 125.58 'P0' STO
  93. .0015535 '\Gr0' STO
  94. PREV2
  95.       END
  96.     \>>
  97.   TST3
  98.     \<<
  99.       IF H 47000 >
  100.       THEN TST4
  101.       ELSE 25000
  102. 'H0' STO 216.16
  103. 'T0' STO .003 'A'
  104. STO 2527.3 'P0' STO
  105. .040639 '\Gr0' STO
  106. PREV1
  107.       END
  108.     \>>
  109.   TST2
  110.     \<<
  111.       IF H 25000 >
  112.       THEN TST3
  113.       ELSE 11000
  114. 'H0' STO 216.66 'T'
  115. STO 22700 'P0' STO
  116. .3648 '\Gr0' STO
  117. PREV2
  118.       END
  119.     \>>
  120.   TST1
  121.     \<<
  122.       IF H 11000 >
  123.       THEN TST2
  124.       ELSE 0 'H0'
  125. STO 288.16 'T0' STO
  126. -.0065 'A' STO
  127. 101325 'P0' STO
  128. 1.225 '\Gr0' STO
  129. PREV1
  130.       END
  131.     \>>
  132.   E3.9 'P=P0*EXP((
  133. H0-H)*G/(R*T))'
  134.   E3.10 '\Gr=\Gr0*EXP((
  135. H0-H)*G/(R*T))'
  136.   E3.12 'P=P0*(T/T0
  137. )^-(G/(A*R))'
  138.   E3.13 '\Gr=\Gr0*(T/T0
  139. )^-(G/(A*R)+1)'
  140.   E3.14 'T=T0+A*(H-
  141. H0)'
  142.   \Gr0 1.225
  143.   P0 101325
  144.   G 9.8
  145.   R 287
  146.   A -.0065
  147.   T0 288.16
  148.   H0 0
  149.   H 10000
  150. END
  151.